home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / misc / toolbox.lha / Toolbox / lib / lalr / Scanner.mod < prev    next >
Encoding:
Text File  |  1993-03-13  |  654 b   |  28 lines
  1. (* $Id: Scanner.mi,v 2.2 1992/08/07 15:28:42 grosch rel $ *)
  2.  
  3. $@ IMPLEMENTATION MODULE $;
  4.  
  5. FROM IO IMPORT StdInput, ReadC;
  6.  
  7. PROCEDURE GetToken (): CARDINAL;
  8.    VAR ch: CHAR;
  9.    BEGIN
  10.       LOOP
  11.      ch := ReadC (StdInput);
  12.      IF ch = 12C THEN INC (Attribute.Position.Line); Attribute.Position.Column := 0;
  13.      ELSIF ch = ' ' THEN INC (Attribute.Position.Column);
  14.      ELSE INC (Attribute.Position.Column); EXIT;
  15.      END;
  16.       END;
  17.       RETURN ORD (ch);
  18.    END GetToken;
  19.  
  20. PROCEDURE ErrorAttribute (Token: CARDINAL; VAR Attribute: tScanAttribute);
  21.    BEGIN
  22.    END ErrorAttribute;
  23.  
  24. BEGIN
  25.    Attribute.Position.Line    := 1;
  26.    Attribute.Position.Column    := 0;
  27. $@ END $.
  28.